10 REM"***NUMEROLOGY FOR C-64***"
12 REM SET SCREEN COLORS AND LOCK IN CASE
14 POKE53280,1:POKE53281,1:POKE646,6:PRINTCHR$(142)CHR$(8):R$=CHR$(13)
16 REM PRINT INITIAL SCREEN
18 PRINT"[147]       [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
20 PRINT"       [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
22 PRINT"              NUMEROLOGY"
24 PRINT"   I WILL ANALYZE A NAME OR DATE FOR    ITS MYSTICAL VIBRATIONS."
26 PRINT"   ACCORDING TO THE ANCIENTS, THESE","VIBRATIONS CONTRIBUTED ";
28 PRINT"CHARACTERISTICS"
30 PRINT"       [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
32 PRINT"       [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
34 REM COLORS CHANGES
36 FORJ=2TO7:POKE53280,J:FORI=55496TO56095:POKEI,J:NEXTI,J
38 POKE53280,1:POKE53281,1:POKE646,6:PRINTCHR$(142)CHR$(8):R$=CHR$(13)
40 REM SET ALL COUNTERS AND STRINGS TO ZERO
42 V=0:Z=0:N$="":A$=""
44 REM
46 PRINT"[147]ANALYZE A NAME ([150]N) , OR A DATE ([150]D)?"
48 PRINT"(HIT Q TO QUIT)"
50 GETQ$:IFQ$=""THEN50
52 IFQ$="Q"THENPRINT"[147]BYE NOW":END
54 IFQ$<>"N"ANDQ$<>"D"THEN46
56 IFQ$="N"THEN96
58 REM BREAKING A DATE INTO ITS SINGLE NUMBER
60 PRINT"[147]DATE TO BE ANALYZED -- NUMBERS ONLY"
62 PRINT"(PROPER FORM WOULD BE 12 15 1984)":INPUT N
64 N$=STR$(N)
66 FORI=2TOLEN(N$)
68 A$=MID$(N$,I,1)
70 IFASC(A$)=32ORVAL(A$)>0 ORVAL(A$)<10THEN74
72 PRINT"INVALID CHARACTER ENTERED - TRY AGAIN":GOTO60
74 IFASC(A$)=32THENNEXT
76 Z=Z+(VAL(A$)):NEXT
78 Z$=STR$(Z)
80 V=0:IFLEN(Z$)<=2THEN132
82 FORI=1TOLEN(Z$)
84 V=VAL(MID$(Z$,I,1))+V
86 NEXT
88 IFV<10THENZ$=STR$(V):GOTO132
90 Z$=STR$(V)
92 GOTO80
94 REM BREAKING A NAME INTO ITS NUMBER
96 PRINT"[147]NAME TO BE ANALYZED -- LETTERS ONLY"
98 PRINT"(PROPER FORM IS NAME COMMONLY USED -    FULL NAME OR NICKNAME)"
100 INPUT N$
102 FORI=1TOLEN(N$)
104 A$=MID$(N$,I,1)
106 IFASC(A$)=32ORASC(A$)>65OR ASC(A$)<91THEN110
108 PRINT"INVALID CHARACTERS ENTERED - TRY AGAIN"
110 IFASC(A$)=32THENNEXT
112 Z=Z+(ASC(A$)-64):NEXT
114 Z$=STR$(Z)
116 V=0: IFLEN(Z$)<=2THEN132
118 FORI=1TOLEN(Z$)
120 V=VAL(MID$(Z$,I,1))+V
122 NEXT
124 IFV<10THENZ$=STR$(V):GOTO132
126 Z$=STR$(V)
128 GOTO116
130 REM PRINTING OUT THE OUTCOME
132 N=LEN(N$):N=(40-N)/2
134 PRINT"[147]"TAB(N)N$R$SPC(8)"VIBRATES TO THE NUMBER "Z$R$R$
136 Z=VAL(Z$):FORI=0TO(Z-1)*10:READB$:NEXT
138 FORI=1TO10:READB$:PRINTB$;:NEXT
140 PRINTR$R$R$SPC(9)"HIT ANY KEY TO CONT."
142 GETA$:IFA$=""THEN142
144 RESTORE:GOTO38
146 REM DATA STATEMENTS FOR THE OUTCOME
148 DATA,"RULED BY THE SUN. DRIVING LIFE FORCE. A LEADER, AMBITIOUS, IMPATIENT"
150 DATA",AN EXPLOREREXTROVERT, AUTOMATICALLY ASSUMES COMMAND"
152 DATA"VERY STRONG FEELINGS. ENTITLED TO PRAISEWHICH CAN SPUR TO"
154 DATA" GREATER THINGS. DESIREFOR ACTION & VIGOR TO DO.  TROUBLE",,,
156 DATA" WITH LONG RANGE PROJECTS. SHOULD CHOOSE ONE  THING AND STICK"
158 DATA" WITH IT.  COURAGE AND   SELF RELIANT."
160 DATA"COMPATIBLE WITH OTHER FIRES- 1, 3, OR 9"
162 DATA"RULED BY THE MOON. SENSITIVE, DOMESTIC, EMOTIONAL."
164 DATA"EASILY MOVED TO TEARS. FERTILEIMAGINATION.  FOND OF"
166 DATA" HOME. PATRIOTIC.  PREFERS TO LIVE NEAR WATER. MUSICAL     ",,,,
168 DATA"TALENT. QUIET POWER OF JUDGEMENT.  GOOD PLANNER. CHANGEABLE"
170 DATA" DISPOSITION,        RESTLESS, EMOTIONAL."
172 DATA"  COMPATIBLE WITH   OTHER WATERS- 2, 7
174 [131]"RULED BY JUPITER. INVESTIGATOR,SCIENTISTSEEKER, MATERIAL RATHER"
176 [131]" THAN SPIRITUAL. GOOD SENSE OF HUMOR. TRUSTING. LIKES TO KNOW WHY"
178 [131]" AND HOW.NOT INTERESTED IN MONEY",,,,
180 [131]"ABILITY PLUS CONFIDENCE.  IMPATIENCE.   TALENT & VERSITILE"
182 [131]". QUICK THINKING AND  INTUITIVE."
184 [131]"COMPATIBLE WITH OTHER FIRE- 1,3, OR 9"
186 [131]"RULED BY URANUS. APPEARS STRANGE AND    ECCENTRIC. AHEAD OF HIS TIME."
188 [131]" INTEREST  IN OCCULT, PSYCHIC & OUT OF THE ORDINARY"
190 [131]"INTUITIVE.SARCASTIC IF CROSSED. LIBERTY,EQUALITY." ,,,,
192 [131]"SUCCESS IN SCIENCE & MECHANICALFIELDS. STEADY AND STABLE."
194 [131]" STRENGTH AND PRIDE. GOOD WITH DETAILS, ACCURATE."
196 [131]"     COMPATIBLE WITH OTHER AIRS - 4 OR 5"
198 [131]"RULED BY MERCURY. ACTIVE PHYSICALLY AND MENTALLY. INQUIRING,"
200 [131]" EXPLORING. LIKES   READING AND RESEARCH. LINGUISTIC. GOOD  TEACHER,"
202 [131]"WRITER, SECRETARY. FRIENDLY,    METHODICAL, ORDERLY.",,,,
204 [131]"INDEPENDENT THOUGHT AND ACTION. SPIRIT OF ADVENTURE."
206 [131]"        SPECULATOR. LIKES THE DRAMATIC."
208 [131]"         COMPATIBLE WITH OTHER AIRS - 4 OR 5"
210 [131]"RULED BY VENUS. GENTLE, REFINED, COMELY,SOCIABLE, PLEASANT.  "
212 [131]" A PEACEMAKER.     DIFFICULTIES IN FINANCES. FRIENDLY AND  AGREEABLE."
214 [131]"  A GOOD HOST OR HOSTESS.  ",,,,
216 [131]"   SUCCESS THROUGH COMPETENCE, YOU SHOULD  FULFILL  WHAT YOU PROMISE."
218 [131]" INTEGRITY ANDTRUST.  POPULAR SOCIALLY & POLITICALLY."
220 [131]" COMPATIBLE WITH OTHER EARTHS - 6 OR 8"
222 [131]"RULED BY NEPTUNE. PSYCHIC, INTROVERT,   MYSTERIOUS. DOES NOT"
224 [131]" SAY MUCH,BUT KNOWS MUCH. DRAWN TO OCCULT. LIKES FISHING"
226 [131]".   TAKES FROM HAVES, GIVES TO HAVE-NOTS.",,,,
228 [131]"   SUCCESSIN ART, SCIENCE, PHILOSOPHY,     THROUGH PLANNING.TENDS"
230 [131]" TO BE INPRACTICALDREAMER, NEEDS A POSITIVE GOAL."
232 [131]"         COMPATIBLE WITH OTHER WATERS - 2 OR 7"
234 [131]"RULED BY SATURN. COLD, PESSIMISTIC. NO  SENSE OF HUMOR."
236 [131]" SUCCESS IN FINANCES.    ASSOCIATED WITH  MINING, REAL ESTATE,   LAW,"
238 [131]" CEMETERIES,PAWN SHOPS. HARD WORKER.CONCERNED WITH THE PAST.",,,,
240 [131]" THRIVES ON     PROGRESS AND ACTIVITY. GUARD AGAINST    PETTY "
242 [131]"JEALOUSY.   THINK BIG AIM HIGH.   MATERIAL SUCCESS."
244 [131]"  COMPATIBLE WITH OTHEREARTHS - 6 OR 8"
246 [131]"RULED BY MARS. EMOTIONAL, JEALOUS. TIED TO FAMILY. ACTIVE."
248 [131]" LOYAL. SUSPICIOUS OF STRANGERS, IMPULSIVE. AFRAID OF UNKNOWN."
250 [131]"ASSOCIATED WITH SURGERY, PHYSICAL AND   MENTAL ILLNESS.",,,,
252 [131]"  HIGH AND HONORABLE     IDEALS.  AVOID DRUDGERY. NEVER RESORT"
254 [131]" TOPETTY TACTICS. PROUD AND ARROGANT, SELF-INTERST.
256 DATA"  COMPATABLE WITH OTHER  FIRES- 1, 3, OR 9"